home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / dbmap.dxr / 00033_Tool Box.ls < prev    next >
Encoding:
Text File  |  2000-01-27  |  2.0 KB  |  86 lines
  1. on SetTextMembers LibName
  2.   X = the number of castMembers of castLib LibName
  3.   repeat with rc = 1 to the number of castMembers of castLib LibName
  4.     xMember = member(rc, LibName)
  5.     if member(xMember).type = #field then
  6.       member(xMember).boxType = #fixed
  7.       member(xMember).editable = 0
  8.     end if
  9.   end repeat
  10.   Jat("fin")
  11.   beep(2)
  12. end
  13.  
  14. on createDummyText
  15.   xText = EMPTY
  16.   repeat with rc = 1 to 555
  17.     xText = xText && rc && "jeep"
  18.   end repeat
  19.   member("jjj", 1).text = xText
  20. end
  21.  
  22. on jtxtra
  23.   Jat("put mMessagelist(xtra" && QUOTE & "cc" & QUOTE & ")")
  24. end
  25.  
  26. on tellloc startsprite, endSprite
  27.   if voidp(endSprite) then
  28.     endSprite = startsprite
  29.   end if
  30.   repeat with rc = startsprite to endSprite
  31.     if the memberNum of sprite rc = 0 then
  32.       put "‚Ä¢‚Ä¢ Blank"
  33.       next repeat
  34.     end if
  35.     put rc, member(the memberNum of sprite rc).name, the loc of sprite rc
  36.   end repeat
  37. end
  38.  
  39. on tellrect startsprite, endSprite
  40.   if voidp(endSprite) then
  41.     endSprite = startsprite
  42.   end if
  43.   repeat with rc = startsprite to endSprite
  44.     if the memberNum of sprite rc = 0 then
  45.       put "‚Ä¢‚Ä¢ Blank"
  46.       next repeat
  47.     end if
  48.     put rc, member(the memberNum of sprite rc).name, the rect of sprite rc
  49.   end repeat
  50. end
  51.  
  52. on move
  53.   set the rect of sprite 2 to rect(0, 0, 567, 18)
  54.   set the rect of sprite 3 to rect(0, 0, 567, 18)
  55.   updateStage()
  56.   put the rect of sprite 2, the rect of sprite 3
  57. end
  58.  
  59. on Jat p1, p2, p3, p4, p5, p6
  60.   put p1, p2, p3, p4, p5, p6
  61. end
  62.  
  63. on Rename sm, em
  64.   fc = 1
  65.   repeat with rc = sm to em
  66.     member(rc, "Text").name = "Resp" & rc & "Textdd"
  67.     fc = fc + 1
  68.   end repeat
  69. end
  70.  
  71. on space xSprite
  72.   xText = member(171, "Text").text
  73.   repeat with rc = 1 to the number of chars in xText
  74.     if char rc to rc + 1 of xText = "  " then
  75.       beginSpace = rc
  76.       xChar = rc
  77.       repeat while char rc of xText = " "
  78.         rc = rc + 1
  79.       end repeat
  80.       endSpace = rc - 1
  81.     end if
  82.   end repeat
  83.   median = beginSpace + integer((endSpace - beginSpace) / 2)
  84.   put median, charPosToLoc(member(171, "Text"), median)
  85. end
  86.